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UNIVERSAL ASSEMBLER VERSION 2.2.8 JULY 29, 1979 (IN-HOUSE) 

CONFIDENTIAL PROPRIETARY INFORMATION 

THIS ITEM IS THE PROPERTY OF DATAPOINT ^CORPORATION, SAN ANTONIO, TEXAS, AND CONTAINS CONFIDENTIAL AND 
TRADE SECRET INFORMATION. THIS ITEM MAY NOT BE TRANSFERRED FROM THE CUSTODY OR CONTROL OF DATAPOINT EXCEPT 
AS AUTHORIZED BY DATAPOINT AND THEN ONLY BY WAY OF LOAN FOR LIMITED PURPOSES. IT MUST NOT BE REPRODUCED 
IN »^HOLE OR IN PART AND MUST BE RETURNED TO DATAPOINT UPON REQUEST AND IN ALL EVENTS UPON COMPLETION OF 
THE PURPOSE OF THE LOAN. 

NEITHER THIS ITEM NOR THE. INFORMATION IT CONTAINS MAY BE USED OR DISCLOSED TO PERSONS NOT HAVING A NEED 
FOR SUCH USE OR DISCLOSURE CONSISTENT rtlTH THE PURPOSE OF THE LOAN, WITHOUT THE PRIOR WRITTEN CONSENT OF 
DATAPOINT. 
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COMMAND LINE ^<AS: SNAP3 PROCl 4G3. PROCID , », PROCI 4G3;G0LX 

INCLUSION A» PROCINC/TXT»DR0 

INCLUSION 8« PROC14G3/LIBIDR0.PMACMIC 

INCLUSION C« PROC14G3/LIB«DR0.GMACROZ 

INCLUSION D» PROC14G3/LIB»DR0.PROCEQUS 

INCLUSION Ex PHOCI4G3/LIB«DR0.BDEF18 00 

INCLUSION Fi PROCJ4G3/LIB«DR0.MDEF18 00 

INCLUSION G« PROCI4G3/LIB«DR0.POHrEQUS 

INCLUSION H» PROCI4G3/LIB*DR0..PORTASGN 

INCLUSION I» PROC14G3/LIB«DH0.PROCPARM 

PROGRAM MAMEi PROCID 



PROGRAM 


ADDRESS BLOCKS* 


010000 


/ABSOLUTE/ SIZE=000000 (ABS) 
















167400 


/sysivR/ 


SIZE=000400 (ABS) 
















170000 


/SYSROM/ 


SIZE=000047 (ABS) 
















000000 


/PID/ 


SIZE=001000 (RED 










EXTERNAL 


. REFERENCES 


(UNDEFINED SYMBOLS) 


t 












UDPOP 


SLC 


RETCC 


AP4 


INCX 


LD6 RETURN INFO 


BFAC 


SRC 


INCP 


INCPA 


BETA 


BT 


SIRO 


DECX 


DS 


ALPHA BFSB SRE 


DECP 


. DECPA 


DI 


BCP 


CCS 


NOJ 


DL 


EI 


PUSHI 


BP REGS DLHL 


. POP 


MIN 


SIRX 


STKS 


SC 


PUSH 


MOUT 


BRL 


BFS 


STL JUMPCC INPUT 


CALLCC 


PIN 


JUMP 


PLR 


CALL 


PSR 


EXADR 


EXSTAT 


EX DATA 


EXWRITE EXCOMl OUTPUT 


EXC0M4 


DMPIN 


DMPSIN 


DM POUT 


DMPSOUT 


BEEP 


CLICK 


LODCF 


SYSTAT 


UDOP BLKOUT BLKIN 


APS 


AP7 


FETCHN 


LDS 


LD7 


L7S 


















UNUSED LABELS! 


















PID 


JMPTBL 



















( 
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b. 

6. 

7. 

8. 

9. 
10. 
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19. 
20. 
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000000 
000000 



LIS3 




-I 




INC 




PROCINC 


LIS! 




I 




. 2.14.G HJS 


30 NOV 


79 


. 2. 14. A HJS 


2 


APR 


79 


* 








. 2..13.B HJS 
. 2.J2.C HJS 


7 


FEB 


79 


13 


OCT 


78 


* 

. 2.9.K HJS 


18 


APR 


78 


. 2. 9. J HJS 


20 


MAR 


78 


. 2. 9. A HJS 


14 


NOV 


77 


. 2. 8. A HJS 


16 


SEP 


77 


ye 

.2.7. HJS 

* 

. 2.5.C HJS 


7 


SEP 


77 


18 


AUG 


77 


. 2. 5. A HJS 


13 


JULY 


77 


PID ORG 









PID USE 




PID 



EXTEND TO INCLUDE DMP I/O INST. 
DO INTERNAL RIM VERSION 

ALLOkv CO MM ON 3800^S (AFTER VI 3) 

DELETE CHECKING OP CORRECT VERSION/REV 

CHANGE FOR RELOCATABLE LINK & CORRECT LODCF NAME 
SETUP FOR 1800/3800 DIFFERENCES 
ADD NEW SYSTAT INSTRUCTION 

DUE TO UPDATE OF OTHER FILES 

-FINAL ADDRESSING SETUP FOR RELEASE 

CHANGE /EPT FILE FOR VERSION. CONTROL 
BRING UP TO VRP FORMAT FOR THE FILE 
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28. 


000000 






29. 


>000000 


000 


000 


30. 


>000002 


000 


000 


31 . 


>000004 


000 


000 


32. 


>000006 


000 


000 


33. 


>000010 


000 


000 


34. 


>000012 


000 


000 


3b, 


>000014 


000 


000 


36. 


>000016 


000 


000 


37. 








38. 


>000020 


000 


000 


39. 


>000022 


000 


000 


40. 


>000024 


000 


000 


41. 


> 000026 


000 


000 


42. 


>000030 


000 


000 


43. 


> 000032 


000 


000 


44. 


>000034 


000 


000 


45. 


>000036 


000 


000 


46. 








47. 


>000040 


000 


000 


48. 


>000042 


000 


000 


49. 


> 000044 


000 


000 


50. 


>000046 


000 


000 


51 . 


>000050 


000 


000 


52. 


>000052 


000 


000 


53. 


>000054 


000 


000 


54. 


>000056 


000 


000 


55. 








56. 


>000060 


000 


000 


57. 


> 000062 


000 


000 


58. 


>000064 


000 


000 


59. 


>000066 


000 


000 


60. 


>0000/0 


000 


000 


61. 


> 0000 72 


000 


000 


62. 


> 000074 


000 


000 


63. 


>000076 


000 


000 



JMPTBL 



DA 


• UDPQP 


DA 


•UDPOP 


DA 


•SLC 


DA 


•RETCC 


DA 


•AP4 


DA 


• INCX 


DA 


*LD6 


DA 


•RETURN 


DA 


• INFO 


DA 


• BFAC 


DA 


•SRC 


DA 


•RETCC 


DA 


•AP4 


DA 


• INCP 


DA 


•LD6 


DA 


•INCP A 


DA 


•BETA 


DA 


•BT 


DA 


•SIRO 


DA 


•RETCC 


DA 


•AP4 


DA 


•DECX 


DA 


•LD6 


DA 


•DS 


DA 


•ALPHA 


DA 


• BFSB 


DA 


•SRE 


DA 


•RETCC 


DA 


•AP4 


DA 


•DECP 


DA 


•LD6 


DA 


•DECPA 



000 


HALT 


001 


HALT 


002 


SHIFT LEFT 


003 


RFC 


004 


I MM ADD 


005 


INCREMENT INDEX <RP> OR MEM 


006 


I MM LA 


00 7 


SUBROUTINE RETURN 


010 


INFORMATION PLEASE 


Oil 


BINARY FIELD ADD 


012 


SHIFT RIGHT 


013 


RFZ 


014 


I MM ADD WITH CARRY 


015 


INCR REG PAIR (BY 1 OR 2) 


016 


I MM LB 


017 


INCR REG PAIR BY REG A 


020 


SWITCH MODES 


021 


BLOCK TRANSFER & TRANSLATE 


022 


SELECT XA PAIR 


023 


RFS 


a24 


I MM SUB 


025 


DECREMENT INDEX <RP> OR MEM 


026 


I MM LC 


027 


DOUBLE STORE 



030 SWITCH MODES 

031 BINARY FIELD SUBTRACT 

032 SHIFT RIGHT EXTENDED 
33 R FP 

034 I MM SUB WITH CARRY 

035 DECCR REG PAIR 

036 I MM LD 

037 DECR PAIR USING A 
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( 



PAGE 



PR0C14G3/LIB 
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6»20 
1 ] 



64. 








6b. 


> 000 I 00 


000 


000 


66. 


>000I02 


000 


000 


67. 


>000I04 


000 


000 


68. 


>000106 


000 


000 


69. 


>000110 


000 


000 


70. 


>000I12 


000 


000 


71. 


>0001 14 


000 


000 


72. 


>000I16 


000 


000 


73. 








74. 


> 000 120 


000 


000 


75. 


>000122 


000 


000 


76. 


> 000 124 


000 


000 


77. 


>000126 


000 


000 


78. 


> 000 I 30 


000 


000 


/9. 


>0001.32 


000 


000 


80. 


>0001 34 


000 


000 


81 . 


>000136 


000 


000 


82. 








83. 


>000140 


000 


000 


84. 


>000142 


000 


000 


85. 


> 000 144 


000 


000 


36. 


>000146 


000 


000 


87. 


>000150 


000 


000 


88. 


>000152 


000 


000 


89. 


>000154 


000 


000 


90. 


>000156 


000 


000 


91 . 








92. 


> 000 160 


000 


000 


93. 


>000162 


000 


000 


94. 


> 000 1 64 


000 


000 


95. 


> 000 166 


000 


000 


96. 


>000170 


000 


000 


97. 


>000172 


000 


000 


98. 


>000174 


000 


000 


99. 


>000176 


000 


000 



DA 


*DI 


DA 


*BCP 


DA 


• CCS 


DA 


•RETCC 


DA 


*AP4 


DA 


•NOJ 


DA 


•LD6 


DA 


*DL 


DA 


•EI 


DA 


•PUSHI 


DA 


*BP 


DA 


•RETCC 


DA 


*AP4 


DA 


•REGS 


DA 


*LD6 


DA 


•DLHL 


DA 


• POP 


DA 


*MIN 


DA 


•SIRX 


DA 


•RETCC 


DA 


•AP4 


DA 


•STKS 


DA 


•LD6 


DA 


•SC 


DA 


•PUSH 


DA 


•MOUT 


DA 


•BRL 


DA 


•RETCC 


DA 


•AP4 


DA 


•BFS 


DA 


•*LD6 


DA 


•STL 



040 DISABLE INTERRUPTS 

041 BLOCK COMPARE. DECIMAL FIELD ADD ^ SUBTRACT 

042 CONDITION CODE SAVE 

043 RTC 

044 I MM AND 

045 NON-JUMP NO-OP 

046 I MM LE 

04 7 DOUBLE LOAD 

050 ENABLE INTERRUPTS, AND JUMP d. RETURN 

051 PUSH IMMEDIATE 

052 BREAKPOINT 

053 RTZ 

054 I MM EXCLUSIVE OR 

055 REGISTER SAVE & LOAD 

056 I MM LH 

057 DOUBLE LOAD HL USING (HL) 

060 POP FROM STACK 

061 MULTIPLE INPUT 

062 SELECT C OR BC PAIR 

063 RTS 

064 I MM INCLUSIVE OR 

065 STACK SAVE, LOAD & MOVE 

066 IMM LL 

067 SYSTEM CALL 



070 PUSH FROM STACK 

071 MULTIPLE OUTPUT 

072 BASE REGISTER LOAD 

073 RTP 

074 IMM COMPARE 

75 BINARY FIELD SHIFT 

076 IMM LX 

77 SECTOR TABLE LOAD 



LEFT & RIGHT 
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100. 
101. 


>000200 


000 


000 


102. 


>000202 


000 


000 


103. 


> 000204 


000 


000 


104. 


>000206 


000 


000 


105. 


>000210 


000 


000 


106. 


>000212 


000 


000 


107. 


> 0002 14 


000 


000 


108. 


>000216 


000 


000 


109. 








110. 


>000220 


000 


000 


111. 


>000222 


000 


000 


112. 


>000224 


000 


000 


113. 


>000226 


000 


000 


114. 


>000230 


000 


000 


lib. 


> 000232 


000 


000 


116. 


>000234 


000 


000 


117. 


> 000236 


000 


000 


118. 








119. 


>000240 


000 


000 


120. 


>000242 


000 


000 


121. 


>000244 


000 


000 


122. 


>000246 


000 


000 


123. 


>000250 


000 


000 


124. 


>0002b2 


000 


000 


12b. 


>0002b4 


000 


000 


126. 


>0002b6 


000 


000 


127. 








128. 


>000260 


000 


000 


129. 


>000262 


000 


000 


130. 


>000264 


000 


000 


131. 


>000266 


000 


000 


132. 


>000270 


000 


000 


133. 


> 0002 72 


000 


000 


134. 


>000274 


000 


000 


13b. 


> 0002 76 


000 


000 



DA 


.*JUMPCC 


DA 


•INPUT 


DA 


•CALLCC 


DA 


• PIN 


DA 


•JUMP 


DA 


•PLR 


DA 


•CALL 


DA 


•PSR 


DA 


•JUMPCC 


DA 


•SIRX 


DA 


•CALLCC 


DA 


•SIRX 


DA 


•PLR 


DA 


•SIRX 


DA 


• PSR 


DA 


•S IRX 


DA 


•JUMPCC 


DA 


•EX ADR 


DA 


•CALLCC 


DA 


•EXSTAT 


DA 


•PLR 


DA 


•EXDATA 


DA 


•PSR 


DA 


•EX WRITE 


DA 


•JUMPCC 


DA 


•EXCOMl 


DA 


•CALLCC 


DA 


•OUTPUT 


DA 


•PLR 


DA 


•OUTPUT 


DA 


•PSR 


DA 


•EXC0M4 



100 
101 
102 
103 
104 
10b 
106 
107 

110 
I 11 
112 
113 
114 
lib 
116 
117 

120 
121 
122 
123 
124 
12b 
126 
127 

130 
131 
132 
133 
134 
13b 
136 
137 



JFC 

INPUT EROM bb 00 I/O BUS 

CFC, USER MODE RETURN (102- 172 

PARITY CHECKING INPUT 

JUMP UNCONDITIONAL 

PL A 

CALL 'unconditional 

PS A, 



BY lO'S) 



JEZ 
SELECT 
CF2 

SELECT 
PL B, 
SELECT 
PS B, 
SELECT 



B 



D 



H 



BC. 



JES 

EX ADR 

CHS 

EX STATUS 

PL C» & DPL 

EX DATA 

PS C, & DPS BC, 

EX WRITE 

JFP 

EX COMl 
CFP 

EX COM2 
PL D, 
EX COM3 
PS D, 
EX COM4 
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136. 








137. 


>000300 


000 


000 


138. 


> 000302 


000 


000 


139. 


>000304 


000 


000 


140. 


>000306 


000 


000 


141. 


> 0003 10 


000 


000 


142. 


>000312 


000 


000 


143. 


>000314 


000 


000 


.144. 


>000316 


000 


000 


145. 








146. 


>000320 


000 


000 


14/. 


>000322 


000 


000 


148. 


>000324 


000 


000 


149. 


>000326 


000 


000 


150. 


> 000330 


000 


000 


151. 


> 000332 


000 


000 


152. 


> 000 334 


000 


000 


153. 


>000336 


000 


000 


154. 








155. 


>000340 


000 


000 


156. 


>000342 


000 


000 


157. 


>000344 


000 


000 


I 58 . 


> 000346 


000 


000 


159. 


>000350 


000 


000 


160. 


>000352 


000 


000 


161. 


>000354 


000 


000 


162. 


> 000356 


000 


000 


163. 








164. 


>000360 


000 


000 


165. 


>000362 


000 


000 


166. 


>000364 


000 


000 


167. 


>000366 


000 


000 


168. 


> 000370 


000 


000 


169. 


>000372 


000 


000 


170. 


> 0003 74 


000 


000 


1 71 . 


>0003y6 


000 


000 


172. 









DA 


•JUMPCC 


DA 


*DMP IN 


DA 


•CALLCC 


DA 


•DMPSIN 


DA 


*PLR 


DA 


•D MP OUT 


DA 


*PSR 


DA 


*D MPS OUT 


DA 


•JUMPCC 


DA 


*BEEP 


DA 


*CAI [ CC 


DA 


•CLICK 


DA 


*PLR 


DA 


•LODCF 


DA 


*PSR 


DA 


•SYS TAT 


DA 


•JUMPCC 


DA 


•UDOP 


DA 


•CALLCC 


DA 


•UDOP 


DA 


•PLR 


DA 


•UDOP 


DA 


•PSR 


DA 


•UDOP 


DA 


•JUMPCC 


DA 


•UDOP 


DA 


•CAf I CC 


DA 


•BLKOUT 


DA 


•SIRX 


DA 


•UDOP 


DA 


•SIRX 


DA 


•BLKIN 



140 


JTC 


141 


DMP BUS INPUT 


142 


CTC 


143 


DMP BUS SHORT INPUT 


144 


PL E, & DPL D£, 


145 


DMP BUS OUTPUT 


146 


PS E. & DPS DE, 


147 


DMP BUS SHORT OUTPUT 


150 


JTZ 


151 


EX BEEP 


152 


CTZ 


153 


EX CLICK 


154 


PL E, 


155 


LOAD CHARACTER FONT 


156 


PS E, 


157 


SYSTEM STATUS 



EX DECKl 



160 JTS 

161 MODEM- ACU CONTROL-STATUS I/O 

162 CTS 

163 INPUT BY UNLOADING RECEIVE BUFFER 

164 PL L, & DPL HL, 

165 START COMMUNICATIONS 

166 PS L, & DPS HL» 

167 OUTPUT TO LOAD TRANSMIT BUFFER 

170 JTP 

171 EX SF 

172 CTP 

173 DMP BUS MULTIPLE OUTPUT 

174 SELECT E OR DE PAIR 

175 EX RErtIND 

176 SELECT L 

177 DMP BUS MULTIPLE INPUT 
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I 7b. 












* 








176. 


.MACRO. 












MACRO 






1 77. 


.MACRO. 












SEVPl 


NAM,A,B,NUM(7),N2 




178. 


.MACRO. 












RPT 


NUM 




179. 


.MACRO. 












DA 


•NAMIA 




180. 


.MACRO. 












MIFS 


N2 




181 . 


.MACRO. 












DA 


•FETCHN 




182. 


.MACRO. 












RPT 


N2 




183. 


.MACRO. 












DA 


•NAMIA 




184. 


.MACRO. 












MX IF 






185. 


.MACRO. 












MIFS 


B 




186. 


.MACRO. 












DA 


•NAM IB 




187. 


.MACRO. 












MX IF 






188. 


.MACRO. 












MEND 






189. 












* 








190. 














RPT 


8 2XX 


ARITH'S 


191 . 


> 0004 00 


000 


000 


000 


000 


000 


SEVPl 


AP,S.7 






>000405 


000 


000 


000 


000 


000 










> 0004 12 


000 


000 


000 


000 


000 










>000417 


000 
















191. 


> 000420 


000 


000 


000 


000 


000 


SEVPl 


AP,S,7 






>000425 


000 


000 


000 


000 


000 










> 000432 


000 


000 


000 


000 


000 










> 00043 7 


000 
















191. 


>000440 


000 


000 


000 


000 


000 


SEVPl 


AP,S,7 






>00044i) 


000 


000 


000 


000 


000 










> 000452 


000 


000 


000 


000 


000 










>000457 


000 
















191. 


> 000460 


000 


000 


000 


000 


000 


SEVPl 


AP,S,7 






>00046b 


000 


000 


000 


000 


000 










> 0004 72 


000 


000 


000 


000 


000 










> 0004 77 


000 
















191. 


>000500 


000 


000 


000 


000 


000 


SEVPl 


AP,S»7 






>000505 


000 


000 


000 


000 


000 










>000512 


000 


000 


000 


000 


000 










>000517 


000 
















191. 


>000520 


000 


000 


000 


000 


000 


SEVPl 


AP,S,7 






>000525 


000 


000 


000 


000 


000 










> 000532 


000 


000 


000 


000 


000 










>000537 


000 
















191 . 


>000540 


000 


000 


000 


000 


000 


SEVPl 


AP,S,7 






>000545 


000 


000 


000 


000 


000 










> 000 552 


000 


000 


000 


000 


000 










>000557 


000 
















191 . 


> 000560 


000 


000 


000 


000 


000 


SEVPl 


AP,S»7 






>000565 


000 


000 


000 


000 


000 










> 0005 72 


000 


000 


000 


000 


000 










>000577 


000 

















( 
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192. 












+ 










193. 


>000600 


000 


000 








DA 


•FETCHN 


300 


NO-OP 


194. 


>000602 


000 


000 


000 


000 


000 


SEVPl 


LD.S,7»6 


30X 






> 00060 7 


000 


000 


000 


000 


000 












>000614 


000 


000 


000 


000 












195. 


> 000620 


000 


000 


000 


000 


000 


SEVPl 


LD,S,7,I,5 


3 IX 






>000625 


000 


000 


000 


000 


000 












> 000632 


000 


000 


000 


000 


000 












> 000637 


000 


















196. 


> 000640 


000 


000 


000 


000 


000 


SEVPl 


LD,S, 7,2,4 


32t 






>000645 


000 


000 


000 


000 


000 












> 000652 


000 


000 


000 


000 


000 












> 000657 


000 


















197. 


> 000660 


000 


000 


000 


000 


000 


SEVPJ 


LD,S, 7,3,3 


33X 






>000665 


000 


000 


000 


000 


000 












>000672 


000 


000 


000 


000 


000 












> 0006 77 


000 


















.1 98 . 


> 000 700 


000 


000 


000 


000 


000 


SEVPl 


LD,S.7,4,.2 


34X 






>000705 


000 


000 


000 


000 


000 












>000 712 


000 


000 


000 


000 


000 












>00071 7 


000 


















199. 


>000 720 
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000 
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205. 
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EXADR 
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EXCOMl 


129 


















EXC0M4 
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EXDATA 


124 


















EXSTAT 


122 


















EX WRITE 


126 














( 

i 


004000 

02000b 
02 0004 
000000 


FETCHN 

FLEX 

INCP 

INCPA 

INCX 

INFO 

INPUT 

10 

IZ 

JMPTBL 

JUMP 


193 
*794l 

43 

4b 

34 

38 
102 
• 18-tI 
*17«I 
•28 
105 


19b 


196 


19.7 


198 


199 


201 






JUMPCC 


101 


110 


119 


128 


137 


146 


15b 




010001 
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L7S 
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203 


















LD6 


35 


44 


b3 


62 


71 


80 


89 
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194 


19b 


196 
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